home *** CD-ROM | disk | FTP | other *** search
/ US Army & World War 2 Set 2 / US Army & World War 2 Set 2 - Disc 1.iso / pc / Reader / AcroRd32.exe / PSPROCSET / 17 < prev    next >
Text File  |  2001-09-24  |  5KB  |  250 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 5.0 13
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. /docinitialize {
  8. PDF begin
  9. /_defaulthalftone
  10. /currenthalftone where
  11. { pop currenthalftone }
  12. { 4 dict dup begin
  13. currentscreen
  14. /SpotFunction exch def
  15. /Angle exch def
  16. /Frequency exch def
  17. /HalftoneType 1 def
  18. end }
  19. ifelse
  20. dd
  21. /currentcolortransfer where
  22. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  23. { /_defaultcolortransfer [currenttransfer dup dup dup] dd }
  24. ifelse
  25. end
  26. } bd
  27. /initialize {
  28. /overprintstack null dd
  29. sep_ops begin
  30. 50 dict begin
  31. _defaulthalftone sethalftone
  32. } bd
  33. /terminate {
  34. end end
  35. } bd
  36. /currentcolortransfer where
  37. { pop }
  38. {
  39. /setcolortransfer
  40. {
  41. settransfer pop pop pop
  42. } bd
  43. } ifelse
  44. /pl {
  45. transform
  46. 0.25 sub round 0.25 add exch
  47. 0.25 sub round 0.25 add exch
  48. itransform
  49. } bd
  50. /m { _sa? { pl } if moveto } bd
  51. /l { _sa? { pl } if lineto } bd
  52. /c
  53. {
  54. _sa? {3 {pl 6 2 roll} repeat} if
  55. curveto
  56. } bd
  57. /ri/pop ld
  58. /setSA { /_sa? xdd } bd
  59. /re
  60. {
  61. _sa?
  62. {
  63. 8 dict begin
  64. /:h exch def
  65. /:w exch def
  66. /:y exch def
  67. /:x exch def
  68. :x :y pl
  69. /:ymin exch def /:xmin exch def
  70. :x :w add :y :h add pl
  71. /:ymax exch def /:xmax exch def
  72. :xmin :ymin moveto
  73. :xmax :ymin lineto
  74. :xmax :ymax lineto
  75. :xmin :ymax lineto
  76. closepath
  77. end
  78. }
  79. {
  80. 4 2 roll moveto
  81. 1 index 0 rlineto
  82. 0 exch rlineto
  83. neg 0 rlineto
  84. closepath
  85. } ifelse
  86. } bd
  87. /q
  88. {
  89. gsave
  90. [currentoverprint overprintstack] /overprintstack xdd
  91. }
  92. [/overprintstack] bld
  93. /Q
  94. {
  95. overprintstack aload pop /overprintstack xdd setoverprint
  96. grestore
  97. }
  98. [/overprintstack] bld
  99. /AlmostFull?
  100. { dup maxlength exch length sub 2 le
  101. } bd
  102. /Expand
  103. { 1 index maxlength mul cvi dict
  104. dup begin exch { def } forall end
  105. } bd
  106. /xput
  107. { 3 2 roll
  108. dup 3 index known not
  109. { dup AlmostFull? { 1.5 Expand } if
  110. } if
  111. dup 4 2 roll put
  112. } bd
  113. /defineRes
  114. { _categories 1 index known not
  115. { /_categories _categories 2 index 10 dict xput store
  116. } if
  117. _categories exch 2 copy get 5 -1 roll 4 index xput put
  118. } bd
  119. /findRes {
  120. _categories exch get exch get
  121. } bd
  122. /L1setcolor {
  123. aload length
  124. dup 0 eq
  125. { pop .5 setgray }
  126. { dup 1 eq
  127. { pop setgray }
  128. { 3 eq
  129. { setrgbcolor }
  130. { setcmykcolor }
  131. ifelse }
  132. ifelse }
  133. ifelse
  134. } bind dd
  135. /concattransferfuncs {
  136. [ 3 1 roll /exec load exch /exec load ] cvx
  137. } bd
  138. /concatandsettransfer {
  139. /_defaulttransfer load concattransferfuncs settransfer
  140. } bd
  141. /concatandsetcolortransfer {
  142. colorplate 0 eq
  143. {
  144. _defaultcolortransfer aload pop
  145. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  146. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  147. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  148. concattransferfuncs
  149. setcolortransfer
  150. } if
  151. colorplate 1 ge colorplate 4 le and
  152. {
  153. 4 colorplate sub index 4 { exch pop } repeat
  154. concatandsettransfer
  155. } if
  156. colorplate 5 ge
  157. {
  158. 0 index 4 { exch pop } repeat
  159. concatandsettransfer
  160. } if
  161. } bd
  162. /tn5044sethalftone
  163. {
  164. begin
  165. HalftoneType 5 eq
  166. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  167. colorplate get
  168. here not {
  169. /Default here not { currentdict } if
  170. } if
  171. }
  172. { currentdict }
  173. ifelse
  174. end
  175. begin
  176. /TransferFunction here
  177. {
  178. concatandsettransfer
  179. currentdict dup length dict
  180. begin
  181. {
  182. 1 index /TransferFunction ne { def } { pop pop } ifelse
  183. } forall
  184. currentdict
  185. end
  186. }
  187. {
  188. currentdict
  189. } ifelse
  190. end
  191. sethalftone
  192. } bd
  193. /paintimage
  194. {
  195. colorplate 0 eq
  196. {
  197. { {currentfile cyanstr readstring pop}
  198. {currentfile magentastr readstring pop}
  199. {currentfile yellowstr readstring pop}
  200. {currentfile blackstr readstring pop
  201. currentfile graystr readstring pop pop}
  202. }
  203. { {currentfile cyanstr readhexstring pop}
  204. {currentfile magentastr readhexstring pop}
  205. {currentfile yellowstr readhexstring pop}
  206. {currentfile blackstr readhexstring pop
  207. currentfile graystr readhexstring pop pop}
  208. } ifelse
  209. true 4 colorimage
  210. }
  211. {
  212. 3 dict begin
  213. /binaryOK exch def
  214. [
  215. 1 1 5 {
  216. dup
  217. /currentfile cvx
  218. [ /cyanstr /magentastr /yellowstr /blackstr /graystr ]
  219. 3 -1 roll 1 sub get cvx
  220. binaryOK { /readstring } { /readhexstring } ifelse cvx
  221. /pop cvx
  222. 5 -1 roll
  223. colorplate dup 5 gt { pop 5 } if
  224. eq not { /pop cvx } if
  225. } for
  226. ] cvx bind
  227. end
  228. [
  229. colorplate 6 eq {
  230. /pop cvx
  231. negativecolorplate { 0 } { 1 } ifelse
  232. } if
  233. colorplate 4 le
  234. {
  235. 1 /exch cvx /sub cvx
  236. } if
  237. colorplate 6 ne
  238. {
  239. systemdict /currenttransfer get exec
  240. aload pop
  241. } if
  242. ] cvx
  243. gsave
  244. systemdict /settransfer get exec
  245. systemdict /image get exec
  246. grestore
  247. } ifelse
  248. } bd
  249. %%EndResource
  250.